home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / biz / dopus / DOpus414JRsrc.lha / DirectoryOpus4 / Library / requesters.c < prev    next >
C/C++ Source or Header  |  2000-02-21  |  32KB  |  853 lines
  1. /*
  2.  
  3. Directory Opus 4
  4. Original GPL release version 4.12
  5. Copyright 1993-2000 Jonathan Potter
  6.  
  7. This program is free software; you can redistribute it and/or
  8. modify it under the terms of the GNU General Public License
  9. as published by the Free Software Foundation; either version 2
  10. of the License, or (at your option) any later version.
  11.  
  12. This program is distributed in the hope that it will be useful,
  13. but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. GNU General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with this program; if not, write to the Free Software
  19. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  20.  
  21. All users of Directory Opus 4 (including versions distributed
  22. under the GPL) are entitled to upgrade to the latest version of
  23. Directory Opus version 5 at a reduced price. Please see
  24. http://www.gpsoft.com.au for more information.
  25.  
  26. The release of Directory Opus 4 under the GPL in NO WAY affects
  27. the existing commercial status of Directory Opus 5.
  28.  
  29. */
  30.  
  31. /* Font-sensitive requester routines.
  32.  
  33.    These routines are for LAYOUT ONLY!!!!
  34.  
  35.    They do not add gadgets or listviews to a window, nor do they
  36.    attempt to process gadget or listview operations. They will
  37.    allocate most, if not all things you need to add an object
  38.    to the requester, however */
  39.  
  40. #include "dopuslib.h"
  41.  
  42. struct PrivateData {
  43.     struct Image *check_off_image;
  44.     struct Image *check_on_image;
  45.     struct Image *button_off_image;
  46.     struct Image *button_on_image;
  47. };
  48.  
  49. struct TextAttr
  50.     topazfont={(STRPTR)"topaz.font",8,0,0};
  51.  
  52. /* Open requester */
  53.  
  54. struct Window * __saveds
  55. R_OpenRequester(register struct RequesterBase *reqbase __asm("a0"))
  56. {
  57.     struct NewWindow newwin;
  58.     struct Screen *screen,screendata;
  59.     struct Window *window=NULL,*center_window=NULL;
  60.     short width,height,attempt;
  61.  
  62.     /* Forbid to prevent changes to Screen lists */
  63.  
  64.     Forbid();
  65.  
  66.     newwin.Type=0;
  67.  
  68.     if (reqbase->rb_flags&RBF_WINDOWCENTER)
  69.         center_window=reqbase->rb_window;
  70.     reqbase->rb_window=NULL;
  71.  
  72.     /* rb_screen overrides rb_screenname; if this is initialised then try
  73.        to open the window on the CUSTOMSCREEN given */
  74.  
  75.     if (reqbase->rb_screen) {
  76.         newwin.Type=CUSTOMSCREEN;
  77.         newwin.Screen=reqbase->rb_screen;
  78.         screen=reqbase->rb_screen;
  79.     }
  80.  
  81.     /* Otherwise, if rb_screenname is given, search screen lists for that
  82.        screen */
  83.  
  84.     else if (reqbase->rb_screenname) {
  85.  
  86.         /* Look for it as a public screen first (2.0 only) */
  87.  
  88.         if (IntuitionBase->LibNode.lib_Version>35 &&
  89.             (screen=LockPubScreen(reqbase->rb_screenname))) {
  90.             newwin.Type=PUBLICSCREEN;
  91.             newwin.Screen=screen;
  92.         }
  93.  
  94.         /* Otherwise search screen lists manually */
  95.  
  96.         else {
  97.             screen=IntuitionBase->FirstScreen;
  98.             while (screen) {
  99.                 if (screen->Title &&
  100.                     LStrCmpI((char *)screen->Title,reqbase->rb_screenname)==0) {
  101.                     newwin.Type=CUSTOMSCREEN;
  102.                     newwin.Screen=screen;
  103.                     break;
  104.                 }
  105.                 screen=screen->NextScreen;
  106.             }
  107.         }
  108.     }
  109.  
  110.     /* If the screen type is still unset, just open on the Workbench screen
  111.        (or default public screen) */
  112.  
  113.     if (!newwin.Type) {
  114.         newwin.Type=WBENCHSCREEN;
  115.         GetWBScreen(&screendata);
  116.         screen=&screendata;
  117.     }
  118.  
  119.     /* Check font pointer; if not set, use screen's font */
  120.  
  121.     if (!reqbase->rb_font)
  122.         reqbase->rb_font=screen->RastPort.Font;
  123.  
  124.     /* If font is proportional, use system default font */
  125.  
  126.     if (reqbase->rb_font->tf_Flags&FPF_PROPORTIONAL)
  127.         reqbase->rb_font=GfxBase->DefaultFont;
  128.  
  129.     /* Attempt this twice; first with the selected font, and if
  130.        the window is too large, again with topaz/8 */
  131.  
  132.     for (attempt=0;attempt<2;attempt++) {
  133.  
  134.         /* Setup window size for selected font */
  135.  
  136.         width=(reqbase->rb_width*reqbase->rb_font->tf_XSize)+reqbase->rb_widthfine;
  137.         height=(reqbase->rb_height*reqbase->rb_font->tf_YSize)+reqbase->rb_heightfine;
  138.  
  139.         if (reqbase->rb_flags&RBF_BORDERS) {
  140.             width+=screen->WBorLeft+screen->WBorRight;
  141.             height+=screen->WBorTop+screen->WBorBottom+screen->Font->ta_YSize+1;
  142.         }
  143.  
  144.         /* If it's not going to fit on the screen, don't even attempt
  145.            to open it. Otherwise, fill in NewWindow structure */
  146.  
  147.         if (width<=screen->Width && height<=screen->Height) {
  148.  
  149.             if (reqbase->rb_flags&RBF_WINDOWCENTER && center_window) {
  150.                 newwin.LeftEdge=center_window->LeftEdge+((center_window->Width-width)/2);
  151.                 newwin.TopEdge=center_window->TopEdge+((center_window->Height-height)/2);
  152.             }
  153.             else {
  154.                 newwin.LeftEdge=(screen->Width-width)/2;
  155.                 newwin.TopEdge=(screen->Height-height)/2;
  156.             }
  157.  
  158.             if (newwin.LeftEdge<0) newwin.LeftEdge=0;
  159.             else if (newwin.LeftEdge+width>screen->Width) newwin.LeftEdge=screen->Width-width;
  160.             if (newwin.TopEdge<0) newwin.TopEdge=0;
  161.             else if (newwin.TopEdge+height>screen->Height) newwin.TopEdge=screen->Height-height;
  162.  
  163.             newwin.Width=width;
  164.             newwin.Height=height;
  165.             newwin.DetailPen=255;
  166.             newwin.BlockPen=255;
  167.  
  168.             if (reqbase->rb_idcmpflags)
  169.                 newwin.IDCMPFlags=reqbase->rb_idcmpflags;
  170.             else newwin.IDCMPFlags=
  171.                 IDCMP_GADGETUP|
  172.                 IDCMP_GADGETDOWN|
  173.                 IDCMP_MOUSEBUTTONS|
  174.                 IDCMP_MOUSEMOVE|
  175.                 IDCMP_RAWKEY|
  176.                 IDCMP_VANILLAKEY|
  177.                 IDCMP_DISKREMOVED|
  178.                 IDCMP_DISKINSERTED;
  179.  
  180.             if (reqbase->rb_flags&RBF_BORDERS) {
  181.                 newwin.Flags=
  182.                     WFLG_DRAGBAR|
  183.                     WFLG_DEPTHGADGET|
  184.                     WFLG_RMBTRAP|
  185.                     WFLG_ACTIVATE|
  186.                     WFLG_NEWLOOKMENUS;
  187.                 if (reqbase->rb_flags&RBF_CLOSEGAD) {
  188.                     newwin.Flags|=WFLG_CLOSEGADGET;
  189.                     newwin.IDCMPFlags|=IDCMP_CLOSEWINDOW;
  190.                 }
  191.             }
  192.             else {
  193.                 newwin.Flags=
  194.                     WFLG_BORDERLESS|
  195.                     WFLG_RMBTRAP|
  196.                     WFLG_ACTIVATE|
  197.                     WFLG_NEWLOOKMENUS;
  198.             }
  199.  
  200.             newwin.FirstGadget=NULL;
  201.             newwin.CheckMark=NULL;
  202.             newwin.Title=reqbase->rb_title;
  203.  
  204.             /* Try to open window; if we succeed, then render border and fill
  205.                in background */
  206.  
  207.             if (window=OpenWindow(&newwin)) {
  208.                 SetFont(window->RPort,reqbase->rb_font);    
  209.                 if (!(reqbase->rb_flags&RBF_BORDERS)) {
  210.                     Do3DBox(window->RPort,2,1,window->Width-4,window->Height-2,
  211.                         reqbase->rb_shine,reqbase->rb_shadow);
  212.                 }
  213.                 SetAPen(window->RPort,reqbase->rb_bg);
  214.                 RectFill(window->RPort,
  215.                     window->BorderLeft+2,
  216.                     window->BorderTop+1,
  217.                     window->Width-3-window->BorderRight,
  218.                     window->Height-2-window->BorderBottom);
  219.                 SetAPen(window->RPort,reqbase->rb_fg);
  220.                 SetBPen(window->RPort,reqbase->rb_bg);
  221.                 SetDrMd(window->RPort,JAM2);
  222.                 break;
  223.             }
  224.         }
  225.  
  226.         /* If we failed with the custom font, try again with topaz/8 */
  227.  
  228.         if (attempt==0) {
  229.             if (!(reqbase->rb_font=OpenFont(&topazfont))) break;
  230.             reqbase->rb_privateflags|=RBP_CLOSEFONT;
  231.         }
  232.     }
  233.  
  234.     /* Unlock the public screen we may have locked earlier */
  235.  
  236.     if (screen && newwin.Type==PUBLICSCREEN) UnlockPubScreen(NULL,screen);
  237.  
  238.     /* Fix StringExtend function for current font */
  239.  
  240.     if (reqbase->rb_extend && window) reqbase->rb_extend->Font=reqbase->rb_font;
  241.         
  242.     /* Restore multitasking */
  243.  
  244.     Permit();
  245.  
  246.     /* Initialise other data */
  247.  
  248.     reqbase->rb_objects=NULL;
  249.     reqbase->rb_memory=NULL;
  250.     reqbase->rb_privatedata=
  251.         LAllocRemember(&reqbase->rb_memory,sizeof(struct PrivateData),MEMF_CLEAR);
  252.  
  253.     /* Fill out rb_window pointer in RequesterBase structure. We also
  254.        return the window pointer to indicate success or failure */
  255.  
  256.     reqbase->rb_window=window;
  257.  
  258.     return(window);
  259. }
  260.  
  261. void __saveds
  262. R_CloseRequester(register struct RequesterBase *reqbase __asm("a0"))
  263. {
  264.     if (reqbase->rb_window) {
  265.         CloseWindow(reqbase->rb_window);
  266.         reqbase->rb_window=NULL;
  267.     }
  268.     if (reqbase->rb_privateflags&RBP_CLOSEFONT && reqbase->rb_font)
  269.         CloseFont(reqbase->rb_font);
  270.     LFreeRemember(&reqbase->rb_memory);
  271. }
  272.  
  273. APTR __saveds
  274. R_AddRequesterObject(register struct RequesterBase *reqbase __asm("a0"),
  275.     register struct TagItem *taglist __asm("a1"))
  276. {
  277.     struct RequesterObject *object=NULL,*tempobject;
  278.     struct PrivateData *private;
  279.     ULONG data;
  280.     int tag,size,type,xoffset,yoffset;
  281.     struct StringInfo *stringinfo=NULL;
  282.     struct PropInfo *propinfo;
  283.     struct Image *propimage;
  284.     struct Gadget *gadget=NULL;
  285.     char **string;
  286.  
  287.     if (!taglist || !reqbase || !reqbase->rb_window) return(NULL);
  288.  
  289.     private=(struct PrivateData *)reqbase->rb_privatedata;
  290.  
  291.     if (reqbase->rb_flags&RBF_BORDERS) {
  292.         xoffset=reqbase->rb_window->BorderLeft;
  293.         yoffset=reqbase->rb_window->BorderTop;
  294.     }
  295.     else {
  296.         xoffset=0;
  297.         yoffset=0;
  298.     }
  299.  
  300.     for (tag=0;tag>-1;tag++) {
  301.         data=taglist[tag].ti_Data;
  302.         switch (taglist[tag].ti_Tag) {
  303.             case TAG_END:
  304.                 tag=-2;
  305.                 break;
  306.  
  307.             case TAG_SKIP:
  308.                 break;
  309.  
  310.             case TAG_MORE:
  311.                 taglist=(struct TagItem *)data;
  312.                 tag=-1;
  313.                 break;
  314.  
  315.     /* Object type */
  316.  
  317.             case RO_Type:
  318.                 if (object) break;
  319.                 if (!(object=LAllocRemember(&reqbase->rb_memory,
  320.                     sizeof(struct RequesterObject),MEMF_CLEAR))) return(NULL);
  321.                 switch (object->ro_type=data) {
  322.                     case OBJECT_TEXT:
  323.                         size=sizeof(Object_Text);   
  324.                         break;
  325.                     case OBJECT_BORDER:
  326.                         size=sizeof(Object_Border);
  327.                         break;
  328.                     case OBJECT_GADGET:
  329.                         size=sizeof(Object_Gadget);
  330.                         break;
  331.                     case OBJECT_LISTVIEW:
  332.                         size=sizeof(Object_ListView);
  333.                         break;
  334.                 }
  335.                 if (!(object->ro_data=LAllocRemember(&reqbase->rb_memory,
  336.                     size,MEMF_CLEAR))) return(NULL);
  337.  
  338.                 switch (object->ro_type) {
  339.                     case OBJECT_TEXT:
  340.                     case OBJECT_BORDER:
  341.                         ((Object_Text *)object->ro_data)->ot_left=
  342.                             reqbase->rb_leftoffset+xoffset;
  343.                         ((Object_Text *)object->ro_data)->ot_top=
  344.                             reqbase->rb_topoffset+yoffset;
  345.                         break;
  346.                     case OBJECT_GADGET:
  347.                         ((Object_Gadget *)object->ro_data)->og_gadget.LeftEdge=
  348.                             reqbase->rb_leftoffset+xoffset;
  349.                         ((Object_Gadget *)object->ro_data)->og_gadget.TopEdge=
  350.                             reqbase->rb_topoffset+yoffset;
  351.                         break;
  352.                     case OBJECT_LISTVIEW:
  353.                         ((Object_ListView *)object->ro_data)->ol_listview.x=
  354.                             reqbase->rb_leftoffset+xoffset;
  355.                         ((Object_ListView *)object->ro_data)->ol_listview.y=
  356.                             reqbase->rb_topoffset+yoffset;
  357.                         break;
  358.                 }
  359.  
  360.                 if (tempobject=reqbase->rb_objects)
  361.                     while (tempobject->ro_next) tempobject=tempobject->ro_next;
  362.                 if (tempobject) tempobject->ro_next=object;
  363.                 else reqbase->rb_objects=object;
  364.                 break;
  365.  
  366.     /* Gadget type (object->ro_Type==OBJECT_GADGET) */
  367.  
  368.             case RO_GadgetType:
  369.                 if (!object || object->ro_type!=OBJECT_GADGET) break;
  370.                 gadget=&((Object_Gadget *)object->ro_data)->og_gadget;
  371.                 ((Object_Gadget *)object->ro_data)->og_type=data;
  372.                 switch (data) {
  373.                     case GADGET_CYCLE:
  374.                         gadget->MutualExclude=GAD_CYCLE;
  375.  
  376.                     case GADGET_TINYGLASS:
  377.                     case GADGET_BOOLEAN:
  378.                         type=GTYP_BOOLGADGET;
  379.                         gadget->Flags=GFLG_GADGHCOMP;
  380.                         gadget->Activation=GACT_RELVERIFY;
  381.                         break;
  382.  
  383.                     case GADGET_INTEGER:
  384.                         gadget->Activation|=GACT_LONGINT;
  385.                     case GADGET_STRING:
  386.                         type=GTYP_STRGADGET;
  387.                         if (!(stringinfo=(struct StringInfo *)
  388.                             LAllocRemember(&reqbase->rb_memory,sizeof(struct StringInfo),MEMF_CLEAR)))
  389.                             return(NULL);
  390.                         gadget->SpecialInfo=(APTR)stringinfo;
  391.                         gadget->Flags=GFLG_GADGHCOMP|GFLG_TABCYCLE;
  392.                         if (reqbase->rb_extend) {
  393.                             gadget->Flags|=GFLG_STRINGEXTEND;
  394.                             stringinfo->Extension=reqbase->rb_extend;
  395.                         }
  396.                         gadget->Activation|=GACT_RELVERIFY|GACT_TOGGLESELECT;
  397.                         break;
  398.  
  399.                     case GADGET_PROP:
  400.                         type=GTYP_PROPGADGET;
  401.                         if (!(propinfo=(struct PropInfo *)
  402.                             LAllocRemember(&reqbase->rb_memory,sizeof(struct PropInfo),MEMF_CLEAR)))
  403.                             return(NULL);
  404.                         gadget->SpecialInfo=(APTR)propinfo;
  405.                         if (!(propimage=(struct Image *)
  406.                             LAllocRemember(&reqbase->rb_memory,sizeof(struct Image),MEMF_CLEAR)))
  407.                             return(NULL);
  408.                         gadget->GadgetRender=propimage;
  409.                         break;
  410.  
  411.                     case GADGET_CHECK:
  412.                         type=GTYP_BOOLGADGET;
  413.                         gadget->Width=26;
  414.                         gadget->Height=11;
  415.                         gadget->Flags=GFLG_GADGIMAGE|GFLG_GADGHIMAGE;
  416.                         gadget->Activation=GACT_RELVERIFY|GACT_TOGGLESELECT;
  417.                         if (private) {
  418.                             if (!private->check_off_image)
  419.                                 private->check_off_image=
  420.                                     GetCheckImage(reqbase->rb_shadow,reqbase->rb_bg,0,&reqbase->rb_memory);
  421.                             if (!private->check_on_image)
  422.                                 private->check_on_image=
  423.                                     GetCheckImage(reqbase->rb_shadow,reqbase->rb_bg,1,&reqbase->rb_memory);
  424.                             gadget->GadgetRender=(APTR)private->check_off_image;
  425.                             gadget->SelectRender=(APTR)private->check_on_image;
  426.                         }
  427.                         gadget->MutualExclude=GAD_CHECK;
  428.                         break;
  429.  
  430.                     case GADGET_RADIO:
  431.                         type=GTYP_BOOLGADGET;
  432.                         gadget->Width=15;
  433.                         gadget->Height=7;
  434.                         gadget->Flags=GFLG_GADGIMAGE|GFLG_GADGHIMAGE;
  435.                         gadget->Activation=GACT_IMMEDIATE|GACT_TOGGLESELECT;
  436.                         if (private) {
  437.                             if (!private->button_off_image)
  438.                                 private->button_off_image=
  439.                                     GetButtonImage(15,9,reqbase->rb_shine,reqbase->rb_shadow,
  440.                                         reqbase->rb_bg,reqbase->rb_bg,&reqbase->rb_memory);
  441.                             if (!private->button_on_image)
  442.                                 private->button_on_image=
  443.                                     GetButtonImage(15,9,reqbase->rb_shine,reqbase->rb_shadow,
  444.                                         reqbase->rb_fg,reqbase->rb_bg,&reqbase->rb_memory);
  445.                             gadget->GadgetRender=(APTR)private->button_off_image;
  446.                             gadget->SelectRender=(APTR)private->button_on_image;
  447.                         }
  448.                         gadget->MutualExclude=GAD_RADIO;
  449.                         break;
  450.                 }
  451.                 gadget->GadgetType=type;
  452.                 break;
  453.  
  454.     /* Gadget ID (object->ro_type==OBJECT_GADGET) */
  455.  
  456.             case RO_GadgetID:
  457.                 if (!object || object->ro_type!=OBJECT_GADGET) break;
  458.                 ((Object_Gadget *)object->ro_data)->og_gadget.GadgetID=data;
  459.                 break;
  460.  
  461.     /* Border type (object->ro_type==OBJECT_BORDER) */
  462.  
  463.             case RO_BorderType:
  464.                 if (!object || object->ro_type!=OBJECT_BORDER) break;
  465.                 ((Object_Border *)object->ro_data)->ob_type=data;
  466.                 break;
  467.  
  468.     /* ListView ID (object->ro_type==OBJECT_LISTVIEW) */
  469.  
  470.             case RO_ListViewID:
  471.                 if (!object || object->ro_type!=OBJECT_LISTVIEW) break;
  472.                 ((Object_ListView *)object->ro_data)->ol_listview.listid=data;
  473.                 break;
  474.  
  475.     /* Left edge positioning */
  476.  
  477.             case RO_Left:
  478.                 data*=reqbase->rb_font->tf_XSize;
  479.             case RO_LeftFine:
  480.                 if (!object) break;
  481.                 switch (object->ro_type) {
  482.                     case OBJECT_TEXT:
  483.                     case OBJECT_BORDER:
  484.                         ((Object_Text *)object->ro_data)->ot_left+=data;
  485.                         break;
  486.  
  487.                     case OBJECT_GADGET:
  488.                         ((Object_Gadget *)object->ro_data)->og_gadget.LeftEdge+=data;
  489.                         break;
  490.  
  491.                     case OBJECT_LISTVIEW:
  492.                         ((Object_ListView *)object->ro_data)->ol_listview.x+=data;
  493.                         break;
  494.                 }
  495.                 break;
  496.  
  497.     /* Top edge positioning */
  498.  
  499.             case RO_Top:
  500.                 data*=reqbase->rb_font->tf_YSize;
  501.             case RO_TopFine:
  502.                 if (!object) break;
  503.                 switch (object->ro_type) {
  504.                     case OBJECT_TEXT:
  505.                     case OBJECT_BORDER:
  506.                         ((Object_Text *)object->ro_data)->ot_top+=data;
  507.                         break;
  508.  
  509.                     case OBJECT_GADGET:
  510.                         ((Object_Gadget *)object->ro_data)->og_gadget.TopEdge+=data;
  511.                         break;
  512.  
  513.                     case OBJECT_LISTVIEW:
  514.                         ((Object_ListView *)object->ro_data)->ol_listview.y+=data;
  515.                         break;
  516.                 }
  517.                 break;
  518.  
  519.     /* Width adjustment */
  520.  
  521.             case RO_Width:
  522.                 data*=reqbase->rb_font->tf_XSize;
  523.             case RO_WidthFine:
  524.                 if (!object) break;
  525.                 switch (object->ro_type) {
  526.                     case OBJECT_BORDER:
  527.                         ((Object_Border *)object->ro_data)->ob_width+=data;
  528.                         break;
  529.  
  530.                     case OBJECT_GADGET:
  531.                         ((Object_Gadget *)object->ro_data)->og_gadget.Width+=data;
  532.                         break;
  533.  
  534.                     case OBJECT_LISTVIEW:
  535.                         ((Object_ListView *)object->ro_data)->ol_listview.w+=data;
  536.                         break;
  537.                 }
  538.                 break;
  539.  
  540.     /* Height adjustment */
  541.  
  542.             case RO_Height:
  543.                 data*=reqbase->rb_font->tf_YSize;
  544.             case RO_HeightFine:
  545.                 if (!object) break;
  546.                 switch (object->ro_type) {
  547.                     case OBJECT_BORDER:
  548.                         ((Object_Border *)object->ro_data)->ob_height+=data;
  549.                         break;
  550.  
  551.                     case OBJECT_GADGET:
  552.                         ((Object_Gadget *)object->ro_data)->og_gadget.Height+=data;
  553.                         break;
  554.  
  555.                     case OBJECT_LISTVIEW:
  556.                         ((Object_ListView *)object->ro_data)->ol_listview.h+=data;
  557.                         break;
  558.                 }
  559.                 break;
  560.  
  561.     /* Object text */
  562.  
  563.             case RO_TextNum:
  564.                 if (!reqbase->rb_flags&RBF_STRINGS || !reqbase->rb_string_table) break;
  565.                 data=(ULONG)reqbase->rb_string_table[data];
  566.  
  567.             case RO_Text:
  568.                 if (!object || !data) break;
  569.                 string=NULL;
  570.                 switch (object->ro_type) {
  571.                     case OBJECT_TEXT:
  572.                         string=&((Object_Text *)object->ro_data)->ot_text;
  573.                         break;
  574.  
  575.                     case OBJECT_GADGET:
  576.                         string=&((Object_Gadget *)object->ro_data)->og_text;
  577.                         break;
  578.  
  579.                     case OBJECT_BORDER:
  580.                         string=&((Object_Border *)object->ro_data)->ob_text;
  581.                         break;
  582.  
  583.                     case OBJECT_LISTVIEW:
  584.                         string=&((Object_ListView *)object->ro_data)->ol_listview.title;
  585.                         break;
  586.                 }
  587.                 if (string &&
  588.                     (*string=LAllocRemember(&reqbase->rb_memory,strlen((char *)data)+1,0)))
  589.                     strcpy(*string,(char *)data);
  590.                 break;
  591.  
  592.     /* Text positioning */
  593.  
  594.             case RO_TextPos:
  595.                 if (!object) break;
  596.                 switch (object->ro_type) {
  597.                     case OBJECT_GADGET:
  598.                         ((Object_Gadget *)object->ro_data)->og_textpos=data;
  599.                         break;
  600.  
  601.                     case OBJECT_BORDER:
  602.                         ((Object_Border *)object->ro_data)->ob_textpos=data;
  603.                         break;
  604.  
  605.                     case OBJECT_LISTVIEW:
  606.                         if (data==TEXTPOS_ABOVE)
  607.                             ((Object_ListView *)object->ro_data)->ol_listview.flags|=DLVF_TTOP;
  608.                         break;
  609.                 }
  610.                 break;
  611.  
  612.     /* String gadget settings (gadgettype==GTYP_STRGADGET) */
  613.  
  614.             case RO_StringBuf:
  615.                 if (!stringinfo) break;
  616.                 stringinfo->Buffer=(UBYTE *)data;
  617.                 break;
  618.  
  619.             case RO_StringLen:
  620.                 if (!stringinfo) break;
  621.                 stringinfo->MaxChars=data;
  622.                 break;
  623.  
  624.             case RO_StringUndo:
  625.                 if (!stringinfo) break;
  626.                 stringinfo->UndoBuffer=(UBYTE *)data;
  627.                 break;
  628.  
  629.     /* Boolean gadget setting */
  630.  
  631.             case RO_BoolOn:
  632.                 if (data && object && object->ro_type==OBJECT_GADGET)
  633.                     ((Object_Gadget *)object->ro_data)->og_gadget.Flags|=GFLG_SELECTED;
  634.                 break;
  635.  
  636.     /* Various other tags */
  637.  
  638.             case RO_ChkCenter:
  639.                 if (data && object && object->ro_type==OBJECT_GADGET && gadget &&
  640.                     (gadget->MutualExclude==GAD_CHECK || gadget->MutualExclude==GAD_RADIO) &&
  641.                     reqbase->rb_font->tf_YSize>gadget->Height)
  642.                     gadget->TopEdge+=(reqbase->rb_font->tf_YSize-gadget->Height)/2;
  643.                 break;
  644.  
  645.             case RO_HighRecess:
  646.                 if (data && object) {
  647.                     if (object->ro_type==OBJECT_GADGET &&
  648.                         gadget && gadget->GadgetType==GTYP_BOOLGADGET) {
  649.                         DoAddGadgetBorders(&reqbase->rb_memory,
  650.                             gadget,1,
  651.                             reqbase->rb_shine,reqbase->rb_shadow);
  652.                     }
  653.                     else if (object->ro_type==OBJECT_LISTVIEW)
  654.                         ((Object_ListView *)object->ro_data)->ol_listview.flags|=DLVF_HIREC;
  655.                 }
  656.                 break;
  657.         }
  658.     }
  659.  
  660.     if (stringinfo && !stringinfo->Buffer && stringinfo->MaxChars>0) {
  661.         if (!(stringinfo->Buffer=
  662.             LAllocRemember(&reqbase->rb_memory,stringinfo->MaxChars+1,MEMF_CLEAR)))
  663.             return(NULL);
  664.     }
  665.  
  666.     return((object)?object->ro_data:(APTR)NULL);
  667. }
  668.  
  669. void __saveds
  670. R_RefreshRequesterObject(register struct RequesterBase *reqbase __asm("a0"),
  671.     register struct RequesterObject *object __asm("a1"))
  672. {
  673.     USHORT count;
  674.     struct RastPort *rp;
  675.  
  676.     if (!reqbase || !reqbase->rb_window) return;
  677.     if (object) count=1;
  678.     else if ((object=reqbase->rb_objects)) count=65535;
  679.     else return;
  680.  
  681.     rp=reqbase->rb_window->RPort;
  682.  
  683.     while (count-- && object) {
  684.         switch (object->ro_type) {
  685.             case OBJECT_TEXT:
  686.                 R_ObjectText(reqbase,
  687.                     ((Object_Text *)object->ro_data)->ot_left,
  688.                     ((Object_Text *)object->ro_data)->ot_top,
  689.                     -1,-1,
  690.                     ((Object_Text *)object->ro_data)->ot_text,
  691.                     TEXTPOS_ABSOLUTE);
  692.                 break;
  693.  
  694.             case OBJECT_BORDER:
  695.                 switch (((Object_Border *)object->ro_data)->ob_type) {
  696.                     case BORDER_NORMAL:
  697.                         Do3DBox(rp,
  698.                             ((Object_Border *)object->ro_data)->ob_left,
  699.                             ((Object_Border *)object->ro_data)->ob_top,
  700.                             ((Object_Border *)object->ro_data)->ob_width,
  701.                             ((Object_Border *)object->ro_data)->ob_height,
  702.                             reqbase->rb_shine,reqbase->rb_shadow);
  703.                         break;
  704.  
  705.                     case BORDER_RECESSED:
  706.                         Do3DBox(rp,
  707.                             ((Object_Border *)object->ro_data)->ob_left,
  708.                             ((Object_Border *)object->ro_data)->ob_top,
  709.                             ((Object_Border *)object->ro_data)->ob_width,
  710.                             ((Object_Border *)object->ro_data)->ob_height,
  711.                             reqbase->rb_shadow,reqbase->rb_shine);
  712.                         break;
  713.  
  714.                     case BORDER_GROUP:
  715.                         DoDo3DFrame(rp,
  716.                             ((Object_Border *)object->ro_data)->ob_left,
  717.                             ((Object_Border *)object->ro_data)->ob_top,
  718.                             ((Object_Border *)object->ro_data)->ob_width,
  719.                             ((Object_Border *)object->ro_data)->ob_height,
  720.                             ((Object_Border *)object->ro_data)->ob_text,
  721.                             reqbase->rb_shine,reqbase->rb_shadow);
  722.                         break;
  723.  
  724.                     case BORDER_STRING:
  725.                         Do3DStringBox(rp,
  726.                             ((Object_Border *)object->ro_data)->ob_left,
  727.                             ((Object_Border *)object->ro_data)->ob_top,
  728.                             ((Object_Border *)object->ro_data)->ob_width,
  729.                             ((Object_Border *)object->ro_data)->ob_height,
  730.                             reqbase->rb_shine,reqbase->rb_shadow);
  731.                         break;
  732.                 }
  733.                 if (((Object_Border *)object->ro_data)->ob_type!=BORDER_GROUP &&
  734.                     ((Object_Border *)object->ro_data)->ob_text) {
  735.                     R_ObjectText(reqbase,
  736.                         ((Object_Border *)object->ro_data)->ob_left,
  737.                         ((Object_Border *)object->ro_data)->ob_top,
  738.                         ((Object_Border *)object->ro_data)->ob_width,
  739.                         ((Object_Border *)object->ro_data)->ob_height,
  740.                         ((Object_Border *)object->ro_data)->ob_text,
  741.                         ((Object_Border *)object->ro_data)->ob_textpos);
  742.                 }
  743.                 break;
  744.  
  745.             case OBJECT_GADGET:
  746.                 if (((Object_Gadget *)object->ro_data)->og_text) {
  747.                     R_ObjectText(reqbase,
  748.                         ((Object_Gadget *)object->ro_data)->og_gadget.LeftEdge,
  749.                         ((Object_Gadget *)object->ro_data)->og_gadget.TopEdge,
  750.                         ((Object_Gadget *)object->ro_data)->og_gadget.Width,
  751.                         ((Object_Gadget *)object->ro_data)->og_gadget.Height,
  752.                         ((Object_Gadget *)object->ro_data)->og_text,
  753.                         ((Object_Gadget *)object->ro_data)->og_textpos);
  754.                 }
  755.                 if (((Object_Gadget *)object->ro_data)->og_type==GADGET_TINYGLASS) {
  756.                     DoDoGlassImage(reqbase->rb_window->RPort,
  757.                         &((Object_Gadget *)object->ro_data)->og_gadget,
  758.                         reqbase->rb_shine,
  759.                         reqbase->rb_shadow,
  760.                         0);
  761.                 }
  762.                 if (((Object_Gadget *)object->ro_data)->og_gadget.GadgetType==GTYP_STRGADGET &&
  763.                     IntuitionBase->LibNode.lib_Version<36) {
  764.                     SetAPen(reqbase->rb_window->RPort,0);
  765.                     RectFill(reqbase->rb_window->RPort,
  766.                         ((Object_Gadget *)object->ro_data)->og_gadget.LeftEdge,
  767.                         ((Object_Gadget *)object->ro_data)->og_gadget.TopEdge,
  768.                         ((Object_Gadget *)object->ro_data)->og_gadget.LeftEdge+
  769.                             ((Object_Gadget *)object->ro_data)->og_gadget.Width-1,
  770.                         ((Object_Gadget *)object->ro_data)->og_gadget.TopEdge+
  771.                             ((Object_Gadget *)object->ro_data)->og_gadget.Height-1);
  772.                     RefreshStrGad(&((Object_Gadget *)object->ro_data)->og_gadget,
  773.                         reqbase->rb_window);
  774.                 }
  775.                 break;
  776.         }
  777.         object=object->ro_next;
  778.     }
  779. }
  780.  
  781. void __stdargs __saveds
  782. R_ObjectText(struct RequesterBase *reqbase,
  783.     short left,
  784.     short top,
  785.     short width,
  786.     short height,
  787.     char *text,
  788.     unsigned short textpos)
  789. {
  790.     struct RastPort *rp;
  791.     short x,y,text_width,text_height,cx,cy,len,got_uscore=-1,uscoreok=1;
  792.     char *ptr,textbuf[82];
  793.  
  794.     rp=reqbase->rb_window->RPort;
  795.  
  796.     SetAPen(rp,reqbase->rb_fg);
  797.     SetBPen(rp,reqbase->rb_bg);
  798.  
  799.     if (textpos&TEXTPOS_F_NOUSCORE) {
  800.         uscoreok=0;
  801.         textpos&=~TEXTPOS_F_NOUSCORE;
  802.     }
  803.  
  804.     for (len=0,ptr=text;*ptr && len<80;len++,ptr++) {
  805.         if (uscoreok && *ptr=='_' && got_uscore==-1) {
  806.             got_uscore=len;
  807.             --len;
  808.         }
  809.         else textbuf[len]=*ptr;
  810.     }
  811.     textbuf[len]=0;
  812.  
  813.     text_width=len*rp->Font->tf_XSize;
  814.     text_height=rp->Font->tf_YSize;
  815.  
  816.     cx=left+((width-text_width)/2);
  817.     cy=top+((height-text_height)/2);
  818.  
  819.     switch (textpos) {
  820.         case TEXTPOS_ABSOLUTE:
  821.             x=left;
  822.             y=top;
  823.             break;
  824.  
  825.         case TEXTPOS_CENTER:
  826.             x=cx;
  827.             y=cy;
  828.             break;
  829.  
  830.         case TEXTPOS_LEFT:
  831.             x=left-text_width-rp->Font->tf_XSize;
  832.             y=cy;
  833.             break;
  834.  
  835.         case TEXTPOS_RIGHT:
  836.             x=left+width+rp->Font->tf_XSize;
  837.             y=cy;
  838.             break;
  839.  
  840.         case TEXTPOS_ABOVE:
  841.             x=cx;
  842.             y=top-rp->Font->tf_YSize-2;
  843.             break;
  844.  
  845.         case TEXTPOS_BELOW:
  846.             x=cx;
  847.             y=top+height+2;
  848.             break;
  849.     }
  850.  
  851.     UScoreText(rp,textbuf,x,y+rp->Font->tf_Baseline,got_uscore);
  852. }
  853.